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Abstract. Recent discoveries have been made connecting abstract homotopy 
theory and the field of type theory from logic and theoretical computer science. 
This has given rise to a new field, which has been christened "homotopy type 
theory" . In this direction, Vladimir Voevodsky observed that it is possible to 
model type theory using simplicial sets and that this model satisfies an addi- 
tional property, called the Univalence Axiom, which has a number of striking 
consequences. He has subsequently advocated a program, which he calls uni- 
valent foundations, of developing mathematics in the setting of type theory 
with the Univalence Axiom and possibly other additional axioms motivated by 
the simplicial set model. Because type theory possesses good computational 
properties, this program can be carried out in a computer proof assistant. In 
this paper we give an introduction to homotopy type theory in Voevodsky's 
setting, paying attention to both theoretical and practical issues. In particu- 
lar, the paper serves as an introduction to both the general ideas of homotopy 
type theory as well as to some of the concrete details of Voevodsky's work 
using the well-known proof assistant Coq. The paper is written for a general 
audience of mathematicians with basic knowledge of algebraic topology; the 
paper does not assume any preliminary knowledge of type theory, logic, or 
computer science. 



1. Introduction 

Type theory is a branch of mathematical logic which developed out of the work of 
Church [0, 10, 11] and which has subsequently found many applications in theoret- 
ical computer science, especially in the theory of programming languages [49]. For 
instance, the notion of datatype in programming languages derives from the type 
theoretic notion of type. Recently, a number of deep and unexpected connections 
between a form of type theory (introduced by Martin-L6f [46, 43, 44, 45]) and ho- 
motopy theory have been discovered, opening the way to a new area of research in 
mathematics and theoretical computer science which has recently been christened 
homotopy type theory. Due to the nature of the mathematical results in this area, 
we believe that there is great potential for the future research in this area to have 
a considerable impact on a number of areas of pure and applied mathematics, as 
well as on the practice of mathematicians. 
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In 1998, Hofmann and Streicher [ ] constructed a model of Martin-Lof type 
theory in the category of groupoids. They also observed that the data of type 
theory itself naturally gives rise to a kind of oo-groupoid structure (although they 
did not prove this for any precise definition of oo-groupoid). In 2001, Moerdijk 
speculated that there should be some connection between Quillen model categories 
and type theory. Then between 2005 and 2006 Awodey and Warren [3, 71, 72], and 
Voevodsky [ , 68, 70, independently understood how to interpret type theory 
using ideas from homotopy theory (in the former case, using the general machinery 
of Quillen model categories and weak factorization systems, and in the latter case 
using simplicial sets). Subsequently, around 2009, Voevodsky [ ] realized that 
the model of type theory in simplicial sets satisfies an additional axiom, which he 
called the Univalence Axiom, that is not in general satisfied. Crucially, satisfaction 
of the Univalence Axiom is a property which distinguishes Voevodsky's model of 
type theory in simplicial sets from the more familiar set theoretic model (it does 
not hold in the latter). 

These results and others (described in more detail below) give rise to what might 
be called the univalent perspective, wherein one works with a kind of type theory 
augmented by additional axioms, such as the Univalence Axiom, which are valid in 
the simplicial set model. In this approach one thinks of types as spaces or homotopy 
types and, crucially, one is able to manipulate spaces directly without having first to 
develop point set topology.^ Although interesting in its own right, this perspective 
becomes significantly more notable in light of the good computational properties 
of the kind of type theory employed here. In particular, type theory of the sort 
considered here forms the underlying theoretical framework of several computer 
proof assistants such as Agda and Coq (see [ ] and [ ], respectively). 

In practical terms, this means that it is possible to develop mathematics involving 
spaces in computer systems which are capable of verifying the correctness of proofs 
and of providing some degree of automation of proofs. We refer the reader to [00] 
and [2: ] for two accounts of computer proof assistants (and related developments) 
written for a general mathematical audience. 

Voevodsky has, since his discoveries mentioned above, been advocating the for- 
malization of mathematics in proof assistants, as well as greater interaction between 
the developers of computer proof assistants and pure mathematicians. He has him- 
self written thousands of lines of code in the Coq proof assistant, documenting 
topics ranging from the development of homotopy theoretic notions and proofs of 
new results in type theory, to the formalization of the basics of abstract algebra. 

Voevodsky's univalent perspective, as detailed in his Coq files, is a unique view 
of mathematics and we believe that it deserves to be more widely known. Unfor- 
tunately, for a mathematician without some background in type theory, homotopy 
theory and category theory, we believe that the prospect of reading thousands of 
lines of Coq code is likely rather daunting (indeed, it may be daunting even for 
those with the prerequisites listed above) . In this paper we attempt to remedy this 
by providing an introduction to both homotopy type theory and the univalent per- 
spective, as well as to some of the material contained in Voevodsky's Coq files. It is 

^One should be careful here since the spaces under consideration should be suitably nice spaces 
(fibrant and cofibrant spaces in the language of homotopy theory) on the one hand. On the other 
hand, when thinking of homotopy types one should not think of homotopy types living in the 
homotopy category, but rather homotopy types living (via their presentations as fibrant and 
cofibrant spaces) in the category of spaces (simplicial sets) . 
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our hope that the reader who is not interested in the Coq code, but who is curious 
about honiotopy type theory wih benefit from an account of this field specifically 
targeted at a general mathematical audience. For those who are interested in the 
Coq code, we believe that this paper can act as an accessible introduction. Indeed, 
it is our ultimate aim that this paper will encourage other mathematicians to be- 
come involved in this area and in the use of computer proof assistants in general. 
This paper also serves as a guide to the authors' recent on-going work on p-adic 
arithmetic and p-adic integrable systems in Coq [48]. 

We believe that the timing of this article is perspicuous in part because there 
is a Special Year devoted to Voevodsky's program during the 2012-2013 academic 
year at the Institute for Advanced Study. Further information on the activities of 
this program is given in Awodey, Pelayo and Warren [2]. 

Disclaimers. This article is aimed at mathematicians who want to understand the 
basics of homotopy type theory and the univalent perspective. It is written for a 
broad audience of readers who are not necessarily familiar with type theory and 
homotopy theory. Because of the introductory nature of the article we are less 
precise than one would be in a research article. This is especially true when it 
comes to describing type theory and Coq, where we eschew excessive terminology 
and notation in favor of a more informal approach. For those readers with the 
requisite background in logic and category theory who are interested in a more 
detailed account we refer to [I]. Needless to say, the present article has no intention 
of being comprehensive, it is merely an invitation to a new and exciting subject. 

It is worth mentioning that there are already a number of introductions to Coq 
available, see for instance [6], which are far more comprehensive and precise than 
this article in their treatment of the proof assistant itself. However, such introduc- 
tions inevitably make use of features of the Coq system which do not enter into 
(or are even incompatible with) the univalent perspective. As such, we warn the 
reader that this paper is not a Coq tutorial: it is an introduction to the univalent 
perspective which along the way also describes some of the basic features of Coq. 

Finally, Coq is not an automatic theorem prover, but rather an interactive the- 
orem prover: it helps one to verify the correctness of proofs which are themselves 
provided by the user.^ 

2. Origins, basic aspects and current research 

This section gives an overview of the origins of homotopy type theory and Vo- 
evodsky's univalent perspective. We assume that readers are more familiar with 
algebraic topology than with type theory (indeed, we expect that many readers may 
have not have been exposed to any type theory). As such, we will introduce type 
theory — already with the homotopy theoretic interpretation of [H, in mind — 
by analogy with certain developments and constructions in algebraic topology. 

This approach is admittedly anachronistic, but we hope that it will serve as an 
accessible starting point for readers coming from outside of type theory. Along the 
way we will try to give an idea of the historical development of the field. However, 



^Technically, it is possible to automate proofs to a large extent in Coq (via the built-in tactics 
language), but, aside from a minor amount of automation implicit in the "tactics" we employ 
below, we will not go into details regarding these features of Coq. The interested reader might 
consult [S] for a good introduction to Coq which pays particular attention to automation. 
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we make no attempt to provide a comprehensive history of homotopy theory or 
type theory. For the early history of homotopy theory we refer to [16]. 

Before starting with type theory it is perhaps worth remarking that type theory 
(hke set theory) is a logical theory which is given by a collection of rules. Anyone 
interested in type theory should at some point study these rules, but doing so is 
not strictly necessary in order to give some flavor of the theory. As such, we choose 
to abstain from giving a formal presentation of type theory. 

2.1. The homotopy theoretic interpretation of type theory. Although the 
mathematical notion of type first appears in Russell's [ ,-] work on the foundations 
of mathematics, it was not until the work of Church [10] that type theory in its 
modern form was born. Later, building on work by Curry [15], Howard [25], Tait 
[0.3], Lawvere [32], Scott [53] and others, Martin-L6f [46, 43, 44, 45] developed a 
generalization of Church's system which is now called dependent or Martin-Lof type 
theory. We will be exclusively concerned with this form of type theory and so the 
locution "type theory" henceforth refers to this particular system.'^ 

The principal form of expression in type theory is the statement that the term 
a is of type A, which is written as 

a : A. 

There are a number of ways that the expression a : A has traditionally been moti- 
vated: 

(1) A is a set and a is an element of A. 

(2) A is a problem and a is a solution of A. 

(3) A is a proposition and a is a proof of A. 

Roughly, of the perspectives enumerated here, the first is due to Russell [ ,-], the 
second is due to Kolmogorov [31], and the third — usually called the Curry-Howard 
correspondence — is due to Curry and Howard [ '']. We will say more about these 
three motivations in the sequel. 

The starting point for understanding the connections between homotopy theory 
and type theory is to consider a fourth alternative to these motivations: 

(4) A is a space and a is a point of A. 

We will be intentionally vague about exactly what kinds of spaces we are consider- 
ing, but we recommend that readers have in mind, e.g., topological spaces, (better 
yet) CW-complexes, or (still better yet) Kan complexes (in which case, "point" 
means 0-simplex). The remarkable thing about (4) is that it helps to clarify certain 
features of type theory which originally seemed odd, or even undesirable, from the 
point of view of the interpretations (1) - (3) above. 

In addition to the kinds of types and terms described above, we also may consider 
types and terms with parameters. These are usually called dependent types and 
terms. E.g., when i? is a type, we might have a type 

{x : B) E{x), 

which is parameterized by B (here a; is a variable). In terms of the motivation (1) 
above in terms of sets, we would think of this as a JB-indexed family {Ex)x£B- From 



•^We caution the reader that there are indeed many different kinds of type theory. Explicitly, 
we are concerned with the intensional form of dependent type theory. 
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the homotopy theoretic point of view (4), we think of such a type as describing a 
fibration E ^ B over the space B. Similarly, we think of a parameterized term 

{x : B) s{x) : E{x) 

as a continuous section of the fibration E ^ B. 




type theory homotopy theory 

[x : B) E(x) p : E B is a fibration over B 

{x : B) s{x) : E(x) s is a section of p 

Figure 1 . Homotopy theoretic interpretation of dependent types 
and terms. 

Of course, none of this would be useful without being given some types and 
terms to start with and some rules for generating new types and terms from old 
ones. It is to these that we now turn. 

2.2. Inductive types. Among all of the types which can be constructed, some 
of the most significant and interesting are the inductive types. The most familiar 
example of an inductive type is the type N of natural numbers. For types, the prop- 
erty of being inductive is the same as being free in an appropriate (type theoretic) 
sense. E.g., N is freely generated by the following data: 

• a term : N; and 

• a term {x : N) S(x) : N. 

Consequently, N has a type theoretic universal property which should be familiar as 
proof by induction (alternatively, definition by recursion). Namely, given any type 

{x : N) E{x) 

fibered over N together with terms: 

• e : E{0) {base case); and 

• {x :N,y : E{x)) f{x,y) : E{S{x)) {induction step), 

there exists a term, which we denote by {x : N) rec(e; /, a;), of type E{x). This 
term has the corresponding properties that 

rec(e, /, 0) = e, and 

rec(e, /, S(x)) = f{x, rec(e, /, x)). 

This should be compared with the usual way that functions from the natural num- 
bers are defined by recursion. 

In general, it is possible to construct inductive types which are generated (in 
the sense that N is freely generated by zero and successor) by arbitrary generators 
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(subject to some technical conditions on the kinds of generators allowed). Indeed, 
it is also possible to construct inductive types which are themselves dependent. 
We will encounter several other examples of inductive types below, but for now we 
mention one single significant example. 

If A is a type, consider the inductive type fibered over A x A with a single 
generator r(a) in the fiber over the pair (a, a). That is, consider the smallest (in 
an appropriate sense) fibration over A x A having such elements r(a) in the fibers. 
Somewhat miraculously, this inductive type turns out to be a well known topological 
space: the space of all (continuous) paths in A. 

Theorem 2.1 (Awodey and Warren [ ]). The path space fibration A^ Ax A is 
an inductive type. 

Actually, Theorem 2.1 is just a small part of a more general result from ibid 
(see also [72] for further details): it is possible to model type theory in weak fac- 
torization systems or Quillen model categories [ ] which satisfy certain coherence 
conditions. Going the other way, Gambino and Garner [ ] showed that it is pos- 
sible to construct a weak factorization system from the syntax of type theory. 

2.3. Groupoids and oo-groupoids. The type theoretic content of Theorem 2.1 
is more than it perhaps looks at first. The reason for this is that the inductive type 
corresponding to the path space fibration is in fact a well-known inductive type and 
one which plays a crucial role in type theory. Called the identity type of A, this 
type is usually written type-theoretically as 

{x : A,y : A) Id^(x,?/) 

with generators written as 

(x : A) t{x) : Id^(a;,a;). 

Type theorists traditionally thought of the type Id^(a,6) as something like the 
"proposition that a and b are equal proofs that A" . It was also known that it 
is possible to construct a set theoretic model of type theory by thinking, as in 
perspective (1) above, of types as sets and terms as elements. In this set theoretic 
interpretation we have that 



I.e., Idyi(a, 6) is either the one point set or the empty set depending on whether 
or not a and b are in fact equal. Under this interpretation it follows that if there 
is a term / : ldA{a,b), then in fact a — b. This was originally seen by many, 
no doubt based on intuitions gleaned from the set theoretic model, as a desirable 
property and this property was added by many type theorists (including, for a time, 
Martin-Lof himself) as an axiom, which we call the 0-truncation rule. 

Type theory with the 0-truncation rule may be somewhat easier to work with 
and, by work of Seely [•')4] and a coherence result due to Hofmann [23], it is possible, 
using the machinery of locally cartesian closed categories, to obtain many different 
models of type theory which satisfy the 0-truncation rule. Nonetheless, adding the 
0-truncation rule destroys the good computational properties of type theory (see 
Section 2.6 for a brief description of the computational aspects of type theory). 
Many of the early questions in Martin-Lof type theory were related to questions 
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about the behavior of the identity types in the theory without 0-truncation. In 
particular, many results were concerned with trying to understand whether facts 
which are consequences of the 0-truncation axiom also hold without the 0-truncation 
axiom. Streicher's Habilitationsschrift [ ] contains many fundamental results in 
this direction. 

One important example of the kind of questions about identity types that type 
theorists were trying to answer is the problem of "uniqueness of identity proofs" : 
if / and g are both of type IdA{a, b), does it follow that f — g (or even that there 
exists a term 77 : Idi;j^(Q ;,)(/, g))? In order to solve this problem Hofmann and 
Streicher [24] constructed a model of type theory in which types are interpreted 
as groupoids and fibrations of groupoids, and terms are interpreted as sections 
(see below for the notion of groupoids). In the process of constructing this model, 
Hofmann and Streicher discovered an interesting fact which we will now describe. 

Given terms a and b of type A, there is an equivalence relation ~ on the set 
of terms of type Idyi(a, 6) given by setting / ~ 17 if and only if there exists a 
term rj : Idi(j^(a,6) (/, ff)- In terms of spaces, / and g correspond to paths from a 
to b in the space A and rj corresponds to a homotopy rel endpoints from / to g. 
Hofmann and Streicher realized that the quotient of the set of terms / : Id^(a, a) 
modulo ~ forms a group. In fact, they realized that the type A can be made into 
a groupoid. Recall that a groupoid is a category in which every arrow is invertible. 
To turn A into a groupoid we take the objects to be the terms a : A and the 
edges to be equivalence classes of / : Id^(a, 5) modulo ~. We now see that these 
two constructions correspond, under the homotopy theoretic interpretation of type 
theory sketched above, to the constructions of the fundamental group 7ri(A,a) of 
the space A with basepoint a and the fundamental groupoid Hi (A) (see [7] for 
more on the fundamental groupoid of a space). In fact, Hofmann and Streicher 
realized that their construction seemed to give some kind of 00-groupoid, but they 
did not pursue this possibility. The first non-syntactic higher-dimensional models 
(which are shown to satisfy all of the required coherence conditions) of type theory 
appeared later in work of Voevodsky [68, 29] and Warren [72, 7 ]. 

In homotopy theory one is also concerned with groupoids and 00-groupoids. The 
fundamental groupoid Hi (A) of a space A is the basepoint-free generalization of 
Poincare's [^l^] fundamental group and captures the homotopy 1-types. Here a 
homotopy n-type is intuitively a space A for which the higher-homotopy groups 
T:i{A,a), for i > n, vanish. For spaces A that are not 1-types one must consider 
higher-dimensional generalizations of the notion of groupoid in order to capture 
the homotopy theoretic content of A. In his letter to Quillen, Grothendieck [21] 
emphasized the importance of finding an infinite dimensional generalization of the 
notion of groupoid which would capture the homotopy types of spaces and indeed 
he offered a suggestion himself (see [42] for a modern exposition of Grothendieck's 
definition). This problem has been one of the leading motivations for the develop- 
ment of higher-dimensional category theory (see [5] for a detailed overview of the 
problem of modeling homotopy types, and see [35, 28, 59, 64, 12] for some results 
on modeling homotopy types). 

In the setting of type theory, with respect to the Batanin-Leinster [4, 33] notion 
of 00-groupoid, types have associated 00-groupoids: 

Theorem 2.2 (van den Berg and Garner [66], and Lumsdaine [ " ]). Every type A 
has an associated fundamental 00-groupoid Hoo(^). 
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Hence the set theoretic intuition for the meaning of types fails to accurately 
capture certain features of the syntax, whereas those features (non-trivial higher- 
dimensional structure) are captured by the homotopy theoretic interpretation of 
types. 

2.4. The univalent model of type theory. We mentioned above the problem of 
finding a notion of cx)-groupoid which completely captures the notion of homotopy 
type. One such notion is provided by Kan complexes. Introduced by Kan [27], these 
were shown by Quillen [ll] to provide a model of homotopy types. Kan complexes 
are simplicial sets which satisfy a certain combinatorial condition. In the work of 
Joyal [26] and Lurie [40] on oo-toposes, the Kan complexes are the oo-groupoids. 
The starting place for Voevodsky's univalent perspective is the following result: 

Theorem 2.3 (Voevodsky [(iS]). Assuming the existence of Grothendieck universes 
(sufficiently large cardinals), there is a model of type theory in the category of 
simplicial sets (equipped with well-orderings) in which types are interpreted as Kan 
complexes and Kan fihrations. 

We will henceforth refer to Voevodsky's model as the univalent model of type 
theory. The particular kind of type theory considered by Voevodsky includes a 
type U which is a universe of types which we refer to as small types."^ Given small 
types A and B, it is then natural to ask what kinds of terms arise in the identity 
type ldi/{A, B). Voevodsky realized that, although this type a priori possesses no 
interesting structure, in the univalent model it turns out to be non-trivial. Based 
on this observation, Voevodsky proposed to add to the axioms of type theory an 
additional axiom, called the Univalence Axiom, which would ensure that the iden- 
tity type of U behaves as it does in the univalent model. We will now explain this 
axiom and some of its consequences. 

It will be instructive to compare several different ways of understanding the 
Univalence Axiom. However, we will first start by giving an explicit description of 
the axiom. Given small types A and B there is, in addition to the identity type 
Idlj{A, B), a type WEq(^, B) of weak equivalences from A to B. Intuitively, thinking 
of A and B as spaces, a weak equivalence / : A — > _B is a continuous function which 
induces isomorphisms on homotopy groups: 

7r„(/) : TTn{A, a) = 7r„(B, /(a)) 

for n > OS^ Since the identity 1a ■ A ^ A is a weak equivalence, there is, by the 
induction principle for identity types, an induced map l : Idi4{A, B) — > \lEq{A, B) 
and the Univalence Axiom can be stated as follows: 

Univalence Axiom (Voevodsky): The map l : IdK{A,B) — >■ WEq(A, i?) is a 
weak equivalence. 

That is, the Univalence Axiom imposes the condition that the identity type between 
two types is naturally weakly equivalent to the type of weak equivalences between 
these types. The Univalence Axiom makes it possible to automatically transport 



■^The universes in Voevodsky's model play two roles. The first is simply to interpret universes 
of types. The second is to avoid certain coherence issues which arise in the homotopy theoretic 
interpretation of type theory. 

^Technically, because we are dealing with sufficiently nice spaces such as CW-complexes or 
Kan complexes, the weak equivalences do in fact coincide with the homotopy equivalences. 
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constructions and proofs between types which are connected by appropriately de- 
fined weak equivalences. 

Without the Univalence Axiom there are three a priori different ways in which 
two small types A and B can be said to be equivalent: 

(1) A^B. 

(2) There exists a term / : ld.u{A, B). 

(3) There exists a term / : WEq(A, B). 

The Univalence Axiom should be understood as asserting (in a type theoretic way) 
that (2) and (3) coincide. (Interestingly, the 0-truncation axiom for U asserts that 
(1) and (2) coincide.) That is, the Univalence Axiom answers the question "What 
is a path from A to B in the space of small spaces?" by stipulating that such a 
path corresponds to a weak equivalence A B. 

Alternatively, the Univalence Axiom may be understood as stating that the 
types of the form WEq(A, B) are inductively generated by the identity maps 1a ■ 
\iEq{A,A). Part of the appeal of the Univalence Axiom is that it has a number 
of interesting consequences which we will discuss below. The connection between 
the Univalence Axiom and object classifiers from topos theory has recently been 
investigated by Moerdijk [ ' ]. 

2.5. The univalent perspective. Following Voevodsky, we define a filtration of 
types by what are called h-levels extending the usual filtration of spaces by homo- 
topy n-types. The h-levels are defined as follows: 

• A type A is of h-level if it is contractible. 

• A type A is of h-level (n -|- 1) if, for all terms a and b of type A, the type 
Idyl (a, b) is of h-level n. 

For n > 1, ^ is of h-level n if and only if it is a homotopy (n — 2)-type. E.g., 
types of h-level 2 are the same as homotopy 0-types: spaces which are homotopy 
equivalent to sets. From a more category theoretic point of view we can view the 
h-levels as follows: 

h-level corresponding spaces up to weak equivalence 

the contractible space 1 

1 the space 1 and the empty space 

2 the homotopy 1-types (i.e., groupoids) 

3 the homotopy 2-types (i.e., 2-groupoids) 

n the homotopy (n — 2)-types (i.e., weak (n — 2)-groupoids) 



Figure 2. h-levels. 

It is worth recording several basic observations. First, weak equivalences respect 
h-level: if there is a weak equivalence f : A —i' B, then A is of h-level n if and only 
if B is of h-level n. Secondly, h-levels are cumulative in the sense that if A is of 
h-level n, then it is also of h-level (n+l). Finally, for any n, if A (or B) is of h-level 
(n + 1) then so is WEq(A, B). 

We denote by hProp the type of all (small) types of h-level 1. The type hProp 
plays the same role, from the univalent perspective, as the boolean algebra 2 := 
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{0, 1} in classical logic and set theory, or the subobject classifier in topos theory. 
We will usually refer to types in hProp as propositions. For hProp, the Univa- 
lence Axiom states that paths in hProp correspond to logical equivalences. I.e., for 
propositions P and Q, it is a necessary and sufficient condition for there to exist a 
term of type IdhPropl-P, Q) that P and Q should be logically equivalent. 

Similarly, we denote by hSet the type of all (small) types of h-level 2 and we 
refer to these types as sets. The type hProp is itself a set. To see this, note 
that, by the "propositional" form of the Univalence Axiom mentioned above, there 
is a weak equivalence l : IdhProp(^, ^) ^ WEq(yl, S). It then follows from the 
basic observations on h-levels summarized above that IdhPropC^, 5) has h-level 1, 
as required. This result is a special case of the more general fact that the Univalence 
Axiom implies that the type hlevel„ of all (small) types of h-level n is itself of 
h-level {n + 1). 

As we see it, the principal idea underlying the univalent perspective is that, 
rather than developing mathematics in the setting of set theory where one must 
"build" all of mathematics up from the emptyset and the operations of set theory, 
we should instead work in a formal system (namely, type theory) where we are 
given at the outset the world of spaces (homotopy types). In this setting we would 
still have all of the sets available to us, but they are "carved out of" or extracted 
from the universe as the types of h-level 2. 



Figure 3. Sets and spaces from set theoretic and univalent perspectives. 

Something which is not revealed in this simple comparison is that it is consider- 
ably easier to extract sets from the world of homotopy types than it is to construct 
spaces from sets. 

From the univalent perspective, the development of ordinary "set-level math- 
ematics", which deals with sets and structures (e.g., groups, rings, ...) on sets, 
is quite similar with the ordinary development of mathematics. However, in this 
setting it is also easy to develop "higher-level mathematics". To take on simple 
example, the notion of monoid can be axiomatized in the ordinary way. I.e., a 
monoid consists of a type M together with a binary operation : M x M ^ M 
which is associative and unital (in the appropriate type theoretic sense). When we 
restrict M to just small types in hSet, we obtain the usual notion of monoid. How- 
ever, when M is allowed to be an arbitrary type, we obtain the notion of homotopy 
associative H-space in the sense of Serre [55]. We believe that it is an advantage 
of the univalent perspective that it is in fact easier to work with such higher-level 
structures in the univalent setting than in the familiar set theoretic setting. 

In addition to the fact that it is efficient to reason about higher-dimensional 
structures in the univalent setting, there are also technical advantages to doing so. 
For example, in the presence of the Univalence Axiom, any structure on a type A 
which is type theoretically definable can be transferred along a weak equivalence 
A ^ B to give a corresponding structure on _B. In general, being able to transfer 
structures along weak equivalences (or even homotopy equivalences) is non-trivial 
(see, e.g., [36] for some examples of such "homotopy transfer theorems" and their 



set theoretic univalent 



spaces 
sets 



constructed given 
given extracted 
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consequences). Therefore, being able to work in a setting where such transfer is 
"automatic" is technically quite convenient. 

2.6. Computational aspects. One of the advantages of working with the partic- 
ular flavor of Martin-L6f type theory employed in the univalent setting is that this 
theory has good computational properties. In technical terms, type checking in this 
theory is decidable. Consequently, it is possible to implement the theory on a com- 
puter. This is essentially what has been done in the case of the "proof assistants" 
Coq and Agda. Therefore, mathematics in the univalent setting can be formal- 
ized in these systems and the veracity of proofs can be automatically checked. In 
the case of reasoning involving homotopy theoretic or higher-dimensional algebraic 
structures, which sometimes involve keeping track of large quantities of complex 
combinatorial data (think of, e.g., reasoning involving tricategories [20]), being 
able to make use of the computer to ensure that calculational errors have not been 
made is potentially quite useful. 

Part of the reason that Martin-L6f type theory enjoys such good computational 
properties is that it is a constructive theory. Classical logic is the usual logic (or 
framework for organizing mathematical arguments) employed in mathematics (it is 
the logic of the Boolean algebra {0, 1}). The logic employed in constructive math- 
ematics is obtained from classical logic by omitting the law of excluded middle, 
which stipulates that, for any statement ip, either tp or not ip. Working construc- 
tively is often more challenging than working classically and sometimes leads to 
new developments. Although there are many reasons that one might be interested 
in pursuing constructive mathematics we will give several practical reasons. First, 
constructive mathematics is more general than classical mathematics in the same 
way that noncommutative algebra is more general than commutative algebra. Sec- 
ondly, even in the setting of classical mathematics constructive reasoning can be 
useful. For example, it is possible to reason constructively in Grothendieck toposes 
(which do not in general admit classical reasoning). Finally, proofs given in a con- 
structive setting will carry algorithmic content, whereas this is not true in general 
for proofs given in the classical setting.'' 

2.7. Reasoning about spaces in type theory. Voevodsky [ ] has described a 
construction of set quotients of types. Explicitly, a relation on a type X is given 
by a map R : X x X ^ hProp. For equivalence relations R, we can form the 
quotient X/R of X. This type X/R is necessarily a set and can be shown to have 
the appropriate universal property expected by such a quotient. The set 7ro(X) of 
path components of X is constructed as a set quotient in the usual way. Because 
loop spaces il{X, x) of types X at points x : X can be defined type theoretically, it 
then follows that we may construct all of the higher- homotopy groups Tr„{X,x) of 
X with basepoint x : X hy setting 

TrniX,x) :=7ro(r!"(X,x)). 

Many of the usual properties of the groups Tr„{X,x) can then be verified type 
theoretically. E.g., 

(1) the homotopy groups of contractible spaces are 0. 

^It should be mentioned that there are logical techniques, which themselves exploit the algo- 
rithmic content of constructive reasoning, for extracting algorithmic content from classical proofs. 
See [30]. 
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(2) the usual Eckmann-Hilton [ ] argument shows that 7r„(X, x) is abehan for 
n > 1 (Licata [-34] has given a proof of this in the proof assistant Agda) . 

(3) Voevodsky has developed a large part of the theory of homotopy fiber se- 
quences. Using this it is possible to construct the long exact sequence 
associated to a fibration. 

The notion of inductive type described in Section 2.2. is the type theoretic ana- 
logue of the notion of a free algebraic structure on a signature (a list of generating 
operations together with their arities) as studied in universal algebra. By consid- 
ering a type theoretic analogue of free algebraic structures on a signature subject 
to relations, it is possible to describe many familiar spaces type theoretically. This 
notion is that of higher-inductive type which is currently being developed by a num- 
ber of researchers (cf., the work by Lumsdaine and Shulman [38, 57]). Rather than 
giving a comprehensive introduction to this subject, we will give a simple example 
which should illustrate the ideas and we will then summarize a few of the additional 
things which can be done with this idea. 

To describe the circle as a higher-inductive type, we require that it should 
have one generator b : and one generator £ : Idgi{b,b). One then obtains an 
induction principle for similar to the induction principle for N described earlier. 
Namely, given any type {x : S^) E(x) fibered over together with terms 

• b' : E{b)] and 

there exists a term {x : S^) recsi{b' ,£' ,x) : E{x) (satisfying appropriate "com- 
putation" conditions). (Here i\{b') is b' transported in the fiber along the loop I for 
which we refer the reader to Section 6.) So, in particular, in order to construct a 
map — > X, it suffices to give a point x : X and a loop £' : lAx{x,x) on x. The 
usual properties of then follow from this type theoretic description (see [5(3] for 
a type theoretic proof that 7ri(5'^,6) = Z). 

In basically the same way, finite (and suitably inductively generated) CW- 
complexes and relative CW-complexes can be constructed as higher-inductive types. 
In fact, Lumsdaine [39] has shown that with higher-inductive types, the syntax of 
type theory gives rise to all of the structure of a model category except for the finite 
limits and colimits. 

2.8. Future directions. There are a number of exciting directions in homotopy 
type theory and univalent foundations which are currently being pursued. We will 
briefly summarize several of them. 

First, there are a number of interesting theoretical questions surrounding the 
Univalence Axiom which remain open. The most pressing of these questions is the 
question of the "constructivity" of the Univalence Axiom posed by Voevodsky in 
[li!)]. Voevodsky conjectured that, in the presence of the Univalence Axiom, for 
every t : N, there exists a numeral n : N and a term of type Idij(t,n). Moreover, it 
is expected that there exists an algorithm which will return such data when given 
a term t of type N. Additionally, there is the question of finding additional models 
of the Univalence Axiom and characterizing such models (see, e.g., [58]). 

Secondly, it remains to be seen how much of modern homotopy theory can be 
formalized in type theory using either higher-inductive types or some other ap- 
proach. Indeed, there is still work to be done to arrive at a complete theoretical 
understanding of higher-inductive types. 
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Finally, the formalization of ordinary (set level and higher-level) mathematics in 
the univalent setting remains to be done. At present, a large amount of mathematics 
has been formalized by Voevodsky in his Coq library. Additionally, together with 
Voevodsky, the authors have been working on developing an approach to the theory 
of integrable systems (using the new notion of p-adic integrable system as a test 
case) in the univalent setting [ ]. Ultimately, we hope that it will be possible 
to formalize large amounts of modern mathematics in the univalent setting and 
that doing so will give rise to both new theoretical insights and good numerical 
algorithms (extracted from code in a proof assistant like Coq) which can be applied 
to real world problems by applied mathematicians. 



3. Basic Coq constructions 

We will now introduce some basic constructions in Coq and their corresponding 
homotopy theoretic interpretations. We mention here that there is an accompanying 
Coq file which includes all of the Coq code discussed here, as well as some additional 
code." 

3.1. The Coq proof assistant. The Coq proof assistant [G5, G, 8] is a computer 
system which is based one flavor of Martin-Lof type theory called the calculus of 
inductive constructions and based in part on the earlier calculus of constructions 
[14] due to Coquand and Huet. 

In February 2010 Voevodsky [70] began writing a Coq library of formalized 
mathematics based on the univalent model. The resulting library can currently be 
found online at the following location: 

http : //github . com/vladimirias/Foundations/. 

There is also an HTML version of the library which can be found at Voevodsky's 
web page 

http : //www . math . ias . edu/-vladimir 

In addition to Voevodsky's library, there is also a repository which is being devel- 
oped by other researchers in homotopy type theory which can be found at 

http : //github . com/HoTT/HoTT 

Documentation on how to configure Coq for each of these libraries can be found 
on the respective websites. We expect a unification of these libraries to occur at 
some point during the Special Year being held at the Institute for Advanced Study 
during the 2012 - 2013 academic year. For now though we work mostly in the style 
of Voevodsky's library. 

While we will not explain here how to install or process a Coq file, it is nonetheless 
worth mentioning that the way a Coq file is generally processed is in an active 
manner. That is, one processes the file in a step-by-step way and as one does so 
Coq provides feedback regarding the current state of the file. 



^The Coq file can be found either as supplementary data attached to the arXiv version of this 
paper or on the second author's webpage. 
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Lemma hfibertriangle2 { X Y : UU } Cf :X -> { y : Y } Cxel xe2: hfib 
er f fee: paths Cprl xel^ Cprl xeZ^Xeee: paths Cpr2 xel) Cpoths 
compB CfTioponpaths f ee) CpfZ xe2))}: paths xel xe2. 
Proof, intros. destruct xel as [ t el ] . jdestruct xeZ. simpl in eee. 

simpl in ee. destruct ee. simpl in eee. apply C^ciponpaths Cfun e: pat 
hs Cf t) y => hfiberpair f t e) eee!). Defined. 

^ I iMtPis {I pr"l ;= t; pr2 ;= el 1} ne? 

Figure 4. A screen with separate conipartments when working 
with Coq. The code entered by the user is here displayed in the left 
compartment. The next goal required by Coq in order to complete 
the currently active proof appears in the upper right compartment. 

For example, Figure 4 illustrates a Coq file currently being processed. The user 
is currently in the middle of processing a proof (indicated in the left-hand pane of 
the image) and the shaded text denotes the part of the file which has so far been 
processed by Coq. The right-hand pane is one of two mechanisms which Coq has 
for providing the user with feedback. In particular, this pane indicates the current 
state of the proof which is being carried out. Thus, as the user progresses through 
a proof the output changes so as to always indicate what remains to be done in 
order to complete the proof. Further, more detailed, examples of this process are 
given below. 

3.2. Types and terms in Coq. The Coq proof assistant, being based as it is on 
a form of type theory, allows us to formalize and verify reasoning about types and 
terms. Throughout our discussion, the reader should have in mind the interpreta- 
tion of type theory described in Section 2.1. Coq comes with a number of types 
and type forming operations already built-in. Using these it is possible to define 
new types. The first thing we want to do is to select a fixed universe of small types 
with which we will work. This is accomplished by the following code: 

Definition UU := Type. 

Here the expression Type is a built-in type in the Coq system which is a universe 
of types (in a suitable technical sense). The definition above then serves to define 
UU to be this fixed built-in universe of types. We think of the terms of type UU 
as the small spaces and the universe UU itself as the (large) space of small spaces. 
Mathematically this is roughly the same as fixing a Grothendieck universe and 
letting UU be the corresponding space of spaces in the universe. 

The main reason for doing this, aside from notational convenience, is a technical 
one arising from the internal mechanism of Coq. Namely, Coq secretly assigns 
indices to each occurrence of Type in a way which ensures a consistent indexing. 
However, we would like to work with one fixed universe and not with an entire 
hierarchy thereof, and this is accomplished by adopting the definition above. The 
type UU corresponds to U from Section 2.4 above. Henceforth, any statement of the 
form A : UU should be thought of as asserting that A is a small space. 

One interesting feature of the Coq system is that types are themselves terms. In 
particular, the "type" UU above is itself a term of type Type, where this latter Type 



X : JJ 
r ; UJ 
f : K -> V 

y ; 

t : X 

el : pQth5 Cf f) y 
nez ; hfiber f y 

ee : paths (pi-l [I r>rl := t; prl := el l}5 (prl xe!) 
eee : ooths ij>r2 {I prl := t; pri := el l» 

CpothscoiTcfl Cmaponpaths f ee) Cpr2 xe^)) 



°If you would like to see the explicit indexing of universes, then you can add the line Set 
Printing Universes, to your Coq file. 
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is given the index (n + 1) when UU has index n. That is, being a type is really the 
same as being a term in a higher universe. 

3.3. A direct definition involving function spaces. In order to illustrate some 
further features of the Coq system, we will define some basic construction on func- 
tion spaces. First, we define, for any small type, the identity function: 

Definition idfun ( A : UU ) : A -> A := fun x => x. 

Let US dissect this line of code and try to understand each of the ingredients. A 
definition, such as this one, is what we will call a direct definition and such a 
definition has the abstract form summarized (together with the two examples we 
have so far encountered) in Figure 5. 

Definition name parameters : type :~ explicit definition 
UU Type 
idfun ( A : UU ) A -> A fun x => x 

Figure 5. Direct definitions in Coq. 



Several remarks about Figure 5 are in order. First, the name is the name given 
to the term. This can be whatever (modulo some restrictions on the syntactic 
form) the user likes. The type is the type of the term being defined. I.e., we have 
that name is of type type. The next thing to note is that the parameters can be 
a list of terms variables of fixed types. In the case of idfun there is just a single 
parameter: the type A : UU; in the case of UU there are no parameters at all. Within 
a definition, the parameters should be enclosed in brackets as in ( A : UU ) . Next, 
note that it is not strictly necessary to declare the type. When no type is given, 
Coq will infer the type. Finally, note that the period at the end of the definition 
must be included in order for Coq to correctly parse the input. 

Coming back to the definition of idfun, it is worth mentioning that the type 
A -> A is the way of denoting the function space A-^ in Coq. That is, for types A 
and B, the type A -> B is the type of functions from A to B. For us, this type should 
be thought of more specifically as the type of all continuous functions from the 
space A to the space B. The remaining part of this definition is the actual content 
of the definition: fun x => x. In this definition, the expressions fun and => go 
together and tell us that it is the function which takes a point x in ^ and gives 
back X. That is, fun ... => ... is the same as giving a definition of a function 
by writing ... i— )■ ... or (for those familiar with lambda calculus) using lambda 
abstraction. In particular, the definition states that idfun is the function given by 
X H> a: (i.e., Xx-x). 

We can now play around a bit with the type checking mechanisms of Coq. Let 
us enter the following into the Coq code: 

Section idfun_test. 
Variable A : UU . 
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The first line tells Coq that we are starting a new section of the file in which we 
will introduce certain hypotheses. The next line tells Coq that we would like to 
assume, for the duration of the current section, that A is a space in UU. The final 
line similarly tells Coq that we are assuming given a point a of A. Now, if we add 
the following line to our Coq file and process up to this point, we will be able to 
see what type the term idf un A has: 

Check idf un A . 

Coq will respond by telling us 
idfun A : A -> A . 

Similarly, if we enter 
Check idfun _ a. 

Then Coq replies with idfun A a : A. Here note that we write idfun _ a to tell 
Coq that we would like for it to guess the parameter (in this case A) which should go 
in the place indicated by the underscore. Finally, we close the section by entering 

End idfun_test. 

After entering this line of code, the variables A and a are no longer declared.^ 

3.4. An indirect definition involving function spaces. We will now show, 
given functions f : A ^ B and g : B C , how to construct the composite 
g o f : A ^ C type theoretically. In order to introduce indirect definitions, we will 
give two ways to construct g o f. 

The utility of indirect definitions in Coq is that sometimes it is not easy to see 
how to give the explicit definition of a term. This is especially true as one starts 
working with increasingly complicated definitions. As such, rather than having 
to struggle to define exactly the required term it is possible to construct the term 
being defined as a kind of proof. Along the way, as this proof is constructed, certain 
automation possible in Coq can be employed. In order to see how this works in 
practice, let vis introduce our first indirect definition. 



Def inition 


f uncomp_indirect ( 


A B C : UU ) ( f 


: A -> B ) ( g : 


B -> C 


) : A -> C. 






Proof . 








intros x. 


apply g. apply f. 


assumption . 




Defined . 









The first observation about this definition is that it looks like everything to the 
left of the : = in a direct definition. In this case there are three parameters of type 
UU (namely. A, B and C). There is also one parameter of type A -> B (namely, f). 
Finally, there is one parameter of type B -> C (namely, g). 

After the first full stop of an indirect definition, we encounter the start of the 
proof. This is given by the line 

Proof . 



^You can verify this by trying Check A. and observing the response from Coq. Be sure to 
remove this Une from your code though otherwise you won't be able to go any further! 
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Likewise, the end of the proof is indicated by 
Defined . 

Between the start of the proof and the end of the proof is a sequence of what 
are cahed tactics, which allow one to construct, using the given parameters, the 
required term. One limitation of writing an article which includes proofs in Coq, is 
that proofs in Coq are usually constructed using "backward" reasoning and so it can 
be hard to read for the uninitiated. In particular, the nature of Coq is such that, qua 
interactive proof assistant, proofs can be understood better by directly watching 
the output of a Coq session, where an additional window appears after each step, 
giving us precise explanations on any given step of the proof. We have included in 
Figure 6 the output from Coq as we move through the proof of f uncomp_indirect. 
Readers should not be discouraged if they are unable to read Coq proofs directly: 
it is much easier if you are going through the proofs yourself in the computer. 









Start of proof 










after intros x . 
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after apply g. 










after apply f . 
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A -> 
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A -> 
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B -> 


C 
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B -> 
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X 


A 






B 




A 



Figure 6. Coq output during indirect definition of function composition. 

We will now go through the proof one step at a time. Notice that once the proof 
is started Coq displays the hypotheses (above the hue =======) together with the 

current goal (below the line). Since the goal is to construct a function A -> C 
we are allowed to assume given an arbitrary term x : A. This is accomplished in 
Coq by entering intros x. Note that the name x here is something which we have 
chosen and the user can choose this name freely (or it can be omitted, in which case 
the Coq system will supply a name of its own choosing). As such, after processing 
intros x, the output has changed (as indicated in Figure 6) by adding a new 
hypothesis (x : A) and changing the goal to C. This means that we now need to 
supply a term of type C. To accomplish this, we note that we are given a function 
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g : B -> C and so it suffices to suppiy a term of type B. We communicate the fact 
tliat we intend to use g to obtain tlie goaf by entering apply g. Tfie effect of this 
is to change the goaf from C to B since B is the domain of g. Applying the same 
reasoning now with f we are in the final situation indicated in Figure 6. Because 
we have as a hypothesis the term x : A and the current goal is to construct a term 
of type A we may simply communicate to the Coq system that there is already a 
term of the required type appearing among the hypotheses. This is accomplished 
by entering assumption. Indeed, at this point, Coq tells us 

No more subgoals . 



and the proof is complete. Note that we must add the final "Defined." in order 
for the Coq system to correctly record the proof. 
We now turn to the corresponding direct definition: 



Definition funcomp { A B C : UU } ( f 


: A -> B ) ( g 


: B -> C ) 


: = fun x:A=>g(fx). 







One thing worth noting about this definition is that here we have enclosed the first 
three parameters in curved brackets as {A B C : UU} in order to indicate to the 
Coq system that these parameters are implicit. Implicit parameters do not need to 
be supplied (when the term is applied) by the user and the system will try to infer 
the values of these parameters. In this case, these can be inferred from the types 
of f and g. Note also that we have here not given explicitly the type of the term 
being defined. As such, we must include the additional typing data x : A in the 
definition in order for the Coq system to be able to infer the type of the term. 
We can now check that our definition agrees with the direct one by entering: 

Print funcomp . 

Print f uncomp_indirect . 

The effect of Print is to output both the type and explicit definition of the term in 
question. In particular, even if the term in question was defined indirectly, as our 
f uncomp_indirect was, it is an explicit term as far as Coq is concerned, and when 
Print is used Coq will unfold the term to give a completely explicit description. 

To understand what this means, simply think of a linear differential equation for 
which it is possible to explicitly write down the solutions. The solution set can be 
difficult to write down, but it can be done. Although you may not want to have 
these solutions in front of you, you know that the explicit solutions are available 
if they are required (say, to verify that they satisfy a certain equation). The Coq 
system effectively keeps track of this kind of book-keeping for the user. 

4. Some basic inductive types 

First we explain two important notions: induction and recursion, and how they 
relate to each other. As a warm up, we are going to explain them for the case of the 
natural numbers, but it is important to keep in mind that for us, the key inductive 
and recursive process will take place over more general objects than the natural 
numbers. But to understand those, first one must understand the simpler case of 
the natural numbers. 
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4.1. The inductive type of natural numbers. Although it is possible to con- 
struct arbitrary inductive types in Coq, we will start by looking at one inductive 
type which is already defined in the Coq system. This is the type nat of natural 
numbers. As an inductive type, nat is generated by 

• the single generator (0-ary operation) : nat; and 

• the single generating function (1-ary operation) S : nat -> nat (this is 
the usual successor function). 

In Coq, this inductive type is specified as follows: 

Inductive nat := I S : nat -> nat. 

Here the internal Coq command Inductive functions similarly to Definition (as 
we will see below). For now the crucial point is to observe that the generating 
operations of the inductive type appear on the right of : = and are separated by the 
symbol |. 

One of the advantages of working with an inductive type such as the natural 
numbers is that functions with inductive domain can be defined by cases. To see 
an example, consider the predecessor function: 

Definition predecessor ( n : nat ) : nat := 
match n with 

I => 

I S m => m 
end . 



This is the way of telling Coq that the predecessor function is the function predecessor 
N ^ N given by case analysis as 



predecessor(n) 



if n = 0, and 
m if n = (m + 1) 



Because we are using the type nat which is predefined in the Coq system, Coq will 
recognize that ordinary numerals refer to the corresponding terms of type nat. So, 
for example, Coq knows that 3 is the same asS (S (SO) ). Using this, we 
can play around with the computational abilities of Coq by entering, say, 

Eval compute in predecessor 26. 

Here Eval compute in tells Coq that wc would like it to compute the value of the 
subsequent expression (in this case predecessor 26). Coq correctly replies 

= 25 : nat 



as expected. 

The definition of the predecessor function given above using match is a direct def- 
inition as described above in Section 3.3. It is also possible to define the predecessor 
function via an indirect definition as follows: 



Def inition 


indir e ct _pr ede c e s s or ( n 


: nat ) 


: nat . 


Proof . 








destruct 


n. exact 0. exact n. 






Defined . 
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In the proof there are two new tactics. The first, destruct n, tells the Coq system 
that we will reason by cases on the structure of n as a term of type nat. Coq 
knows that, as a natural number, there are two cases and in the first case there is 
no hypothesis necessary (see Figure 4.1) because n is in this case. At this stage, 
we know that we would like the output of the function to be and we tell Coq 
this using the exact tactic. In general, if we enter exact x, this tells Coq that 
the term we are looking for is exactly the term x. Once we have entered exact 0, 
Coq moves on to the second possibility: the term is a successor. Note that in the 
list of hypotheses at this stage (see Figure 4.1) the term n : nat is listed and so 
superficially things are just as they were at the start of the proof. However, because 
we earlier employed the destruct tactic, Coq knows that we must now give the 
required output of the predecessor function when given the value S n. As such, we 
enter exact n. Comparing predecessor and iiidirect_predecessor using the 
Print command reveals that they are indeed identical terms. 



n : nat 


Start of proof 




after destruct n. 


nat 




nat 





after exact . 



n : nat 



nat 



Figure 7. Coq output during indirect definition of the predecessor function. 

We will now turn to several of the inductive types more closely related to the 
homotopy theoretic side of things. 

4.2. Fibrations and the total space of a fibration. Fibrations can be under- 
stood as a homotopy theoretic generalization of the more familiar notion of fiber 
bundle. Similarly, they can be understood as a homotopy theoretic version of 
Grothendieck fibrations familiar from category theory and algebraic geometry. In 
particular, for spaces, a fibration is a map 

tt: E B 

which possesses a certain homotopy-lifting property. In this case we would refer to 
B as the base space and to E as the total space of the fibration. Given a point b 
in B, the fiber over b, which we sometimes write as Ei,, is just the preimage 7r~^(6) 
of b under the map tt. As mentioned in Section 2.1 above, fibrations correspond 
to types which depend on parameters (so-called dependent types). In Coq, the way 
of dealing with dependent types is somewhat different from the one sketched in 
Section 2.1. In particular, given an element B : UU a fibration for us is a term 



E : B -> UU. 
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The idea that a fibration over a base space B is the same as a map from B into a 
suitable universe is a classical idea, especially in category theory where it is a basic 
fact that Grothendieck fibrations over a category B correspond to pseudo-functors 
from B into the 2-category of small categories. (These ideas are ubiquitous in 
category theory and have been developed in great generality by the Australian 
school of category theorists. A nice exposition of these ideas can be found in the 
first section of [d I ].) 

The idea behind this correspondence is that a fibration can be completely recov- 
ered from its base space B together with its fibers by gluing the fibers together in 
a coherent way in accordance with the structure of the base space. The same can 
be accomplished in Coq by defining the total space of a fibration E : B -> UU as 
an inductive type. 



Induct ive 


total {B 


:UU> (E ; 


: B -> UU) 


: UU : = 


pair ( X 


: B ) ( y 


: E X ) . 







Intuitively, total E should be thought of as a space consisting of all pairs (b,e), 
where b is a point of the base space B and e in a point of the fiber E b over b. 

Fiber bundles E ^ B are sometimes thought of as a "twisted" generalization 
of direct products F x B — B, and the fact that fibrations are a homotopical 
generalization of this notion reveals itself type theoretically by the fact that the 
total space construction total is a generalization of the construction of direct 
products of spaces A x B, which are given by 



Definition dirprod { A B : UU } : 


: UU : = 


total ( fun X : A => B ) . 





Returning to total, we define a projection map total E -> B by 



Definition prl { B : UU } { E : 


B -> UU } : 


: total E -> B : 


= fun 


z => match z with pair x y 


= > X end . 







This map serves to exhibit E as a fibration over B. 



5. The path space 

As mentioned in Sections 2.2 and 2.3, the type theoretic identity type is inter- 
preted homotopy theoretically as the path space. The path space, and the corre- 
sponding type in Coq, is so important that we will now carefully describe several 
basic constructions involving it in the setting of Coq. 
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paths a b 




Figure 8. The path space fibration paths a with the fiber over 
a point b. Here p is a (path) homotopy from / to g. 

In Coq, the path space paths is defined as follows. 
Notation paths := identity. 



Here identity, like nat, is a built-in inductive type in the Coq system. We can 
see how it is defined inductively using Print to find 



Induct ive 


identity (A : Type) (a 


A) 


A -> Type := 


identity 


_refl : identity a a. 







That is, for each a : A, identity a is the fibration freely generated by a term 
identity_ref 1 a in the fiber over a. 

We add the following line in order to introduce a slightly shorter notation for 
the terms identity_ref 1: 



Notation idpath := ident ity_ref 1 . 

That is, for a : A, idpath. a : paths a a is the identity path based at a. 

Recall that a path in a space ^ is a continuous function : / — > A where / = [0, 1] 
is the unit interval. We say that if is a path from a point a of A to a point b of 
A when ip{0) = a and <^(1) = b. Then, the path space A^ is the space of paths in 
A and it comes equipped with two maps do,di : A^ A given by di{(p) := (p{i) 
for i = 0,1. The induced map (i9o, di) : A^ A x A is sl fibration which gives a 
factorization of the diagonal A : A A x A as 

A >A' 

A 

Ax A 

where the first map A — !■ is a weak equivalence and the second is the fibration 
mentioned above. Here the first map A A^ sends a point a to the constant 
loop based at a. (That is, this first map is precisely idpath.) One of the many 
important contributions of Quillen in [ ] was to demonstrate that it is in fact 
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possible to do homotopy theory without the unit interval provided that one has the 
structure of path spaces, weak equivalences, fibrations, and a few other ingredients. 
This is part of the reason that, even though type theory does not (without adding 
higher-inductive types or something similar) provide us with a unit interval, it is 
still possible to work with homotopy theoretic structures type theoretically. 



5.1. Groupoid structure of the path space. We will now describe the groupoid 
structure which the path space endows on each type. These constructions are well- 
known and their connection with higher- dimensional groupoids was first noticed by 
Hofmann and Streicher [24]. 

First, given a path / from a to 6 in A we would like to be able to reverse this 
path to obtain a path from b to a. For topological spaces this is easy because a path 
ip : I ^ A gives rise to an inverse path (p' given by (p'{t) := (p{l — t), for < i < 1. 



Definition pathsinv 


■[ A : UU }■ { a b : 


: A } ( f : 


: paths a b ) 


: paths b a. 








Proof . 








destruct f . apply 


idpath . 






Defined . 









Here recall that destruct allows us to argue by cases about terms of inductive 
types. Here f is of type paths a b, which is inductive, and therefore this tactic 
applies. In this case, there is only one case to consider: f is really the identity 
path idpath a : paths a a. Because the inverse of the identity is the identity we 
then use apply idpath to complete the proof. (Note that we could also have used 
exact ( idpath a ) instead of apply idpath here to obtain the same term.) 

Next, given a path / as above together with another path g from b to c, we would 
like to define the composite path from a to c obtained by first traveling along / and 
then traveling along g. This operation of path composition is defined as follows: 



Def inition 


pathscomp -[A:UU}{abc 


: A }■ ( f 


: paths a b ) 


( g : 


paths be): paths a c . 






Proof . 








destruct 


f . as sumpt ion . 






Def ined . 









Once again, the proof begins with destruct f which effectively collapses f to a 
constant loop. In particular, the result of this is to change the ambient hypotheses 
so that g is now of type paths a c (see Figure 9). At this stage, the goal matches 
the type of g and we use assumption to let the Coq system choose g as the result 
of composing g with the identity path. 
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Start of proof a/fer de struct f. 



A : UU 

a : A 

b : A A : UU 

c : A a : A 

f : paths a b c : A 

g : paths be g : paths a 

paths a c paths a c 



Figure 9. Coq output during the definition of path composition. 

One immediate consequence of this definition is that the unit law /ola = / for / : 
a —> 6 holds on i/ie nose in the sense that these two terms (pathscomp ( idpath a ) f 
and f ) are identical in the strong = sense. On the other hand, the unit law l(,o/ = / 
does not hold on the nose. Instead, it only holds up to the existence of a higher- 
dimensional path as described in the following Lemma: 



Lemma isrunitalpathscomp {AiIJUj-CabiAJCf 


paths a b 


) : paths ( pathscomp f ( idpath b ) ) f . 




Proof . 




destruct f. apply idpath. 




Def ined . 





The proof of this requires little comment (when / becomes itself an identity path, 
the composite becomes, by the left-unit law mentioned above, an identity path). 
The one thing to note here is that here instead of Definition we have written 
Lemma. Although there arc some technical differences between these two ways of 
defining terms they are for us entirely interchangeable and therefore we use the 
appellation "Lemma" in keeping with the traditional mathematical distinction be- 
tween definitions and lemmas. 

That facts that, up to the existence of higher-dimensional paths, composition 
of paths is associative and that the inverses given by paths inv are inverses for 
composition are recorded as the terms isassocpathscomp, islinvpathsinv and 
isrinvpathsinv. However, the descriptions of these terms are omitted in light of 
the fact that they all follow the same pattern as the proof of isrunitalpathscomp. 

5.2. The functorial action of a continuous map on a path. Classically, given 
a continuous map f : A ^ B and a path : / — >■ A in A, we obtain a corre- 
sponding path in B by composition of continuous functions. Thinking of spaces as 

oo-groupoids, this operation of going from the path Lp va A to the path f o ip 'm B 
is the functorial action of / on 1-cells of the oo-groupoid A. In Coq, this action of 
transporting a path in ^4 to a path in B along a continuous map is given as follows: 

Definition maponpaths -CAB:UU}(f:A->B)-[aa' :A} 

( p : paths a a' ) : paths (fa) (fa' ). 
Proof . 

destruct p. apply idpath. 
Defined . ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 
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The proof again follows the familiar pattern: when the path p is the identity path 
on a, the result of applying / should be the identity path on /(a). We introduce 
the following notation for maponpaths: 

Notation "f ' p" := ( maponpaths f p ) (at level 30 ) . 

This is an example of a general mechanism in Coq for defining notations, but 
discussion of this mechanism is outside of the scope of this article (the crucial point 
here is that the value 30 tells how tightly the operation ' should bind). 




Figure 10. Representation of maponpaths. 

We leave it as an exercise for the reader to verify that the operation maponpaths 
respects identity paths, as well as composition and inverses of paths. 

6. Transport 

Given a fibration tt : E ^ B together with a path / from b to b' in the base B, 
there is a continuous function f\ : E}, ^ Ejyi from the fiber E\, of tt over b to the 
fiber Ey over 6'. This operation /i of forward transport along a path is described 
in Coq as follows: 

Definition transportf { B : UU > ( E : B -> UU ) -[ b b ' : B } 
( f : paths bb' ) : Eb->Eb'. 
Proof . 

intros e. destruct f . assumption. 
Defined . 



E{b) 



E(b') 




Figure 11. Forward transport. 
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For a path / as above, there is a corresponding operation /* : Ei,/ — > Ef, of backward 
transport and it turns out that f\ and /* constitute a homotopy equivakaicc. 

We will turn to briefly discuss homotopy and homotopy equivalence in the setting 
of Coq before returning to forward and backward transport. 

6.1. Homotopy and homotopy equivalence. Recall that for continuous func- 
tions f,g:A^B,a homotopy from f to g is given by a continuous map h: 
such that 




BxB 

commutes. 

In Coq, the type of homotopics between functions f,g:A^B is given by 

Definition homot { A B : UU } ( f g : A -> B ) := forall x :A, 
paths (fx) (gx). 

Here we encounter a new ingredient in Coq: the universal quantifier forall. From 
the homotopical point of view, this operation takes a fibration E : B -> UU and 

gives back the space forall x : B, E x of all continuous sections of the fibration. 
That is, we should think of a point s of this type as corresponding to a continuous 
section 



B ^ > E 




One particular consequence of this is that if we are given a term 
s : ( forall x : B, E x ) 

and another term b : B, then the term s can be applied to the term b : B to 
obtain a term of type E b. The result of applying s to b is denoted by 

s b : E b. 



We have more below to say about forall. 

Now, a map f : A ^ B is a. homotopy equivalence when there exists a map 
f : B ^ A together with homotopics from /' o / to 1a and from f o f to 1b- 
In this case, we say that /' is a homotopy inverse of /. Two spaces A and B are 
said to have the same homotopy type when there exists a homotopy equivalence 
f:A-^B. 

In Coq, we define the type of proofs that a map f : A -> B is a homotopy 
equivalence as follows: 



Definition isheq { A B : UU > 


( f : A -> 


B ) := total (fun f : 


B -> A => dirprod (homot 


(funcomp f ' 


f) (idfun _)) (homot 


^ (funcomp f f') (idfun )) 


1 
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Here it is worth pausing for a nioment to consider the meaning of the type isheq. 
Intuitively, isheq f is the type consisting of the data which one must provide in 
order to prove that f is a homotopy equivalence. That is, a term of type isheq f 
consists of: 

• a continuous map f ' : B -> A; 

• a homotopy from f iincomp f ' f to the identity on B; 

• a homotopy from f iincomp f f ' to the identity on A. 

Indeed, by the definitions of total and dirprod the terms of isheq f can be 
regarded as a tuple of such data. 



6.2. Forward and backward transport. It turns out that, as mentioned above, 
the backward transport map /* : Ef,/ — > is a homotopy inverse of forward 
transport f\. Denote by transportb the backward transport term. It is often 
convenient to break the proofs of larger facts up into smaller lemmas and we will 
do just this in order to show that transportf E f is a homotopy equivalence. In 
particular, we begin by proving that /] o /* is homotopic to the identity 1 e^, '■ 



Lemma backandf orth ■[ B 


:UU>{E:B->UU}{bb' :B}(f 


: paths b b' ) ( e 


: E b' ) : homot ( funcomp ( transportb 


E f ) ( transportf 


E f ) ) ( idfun _ ) . 


Proof . 




intros x. destruct f 


. apply idpath . 


Def ined . 





Next, we prove that /* o /i is homotopic to the identity as f orthandback (we 
omit the proof because it is identical to the proof of backandf orth): 



Lemma forthandback { B : 


UU 


}{E:B->UU>{bb' : B } ( f 


: paths b b ' ) ( e : 


E b 


' ) : homot ( funcomp ( transportf 


E f ) ( transportb E 


f ) 


) ( idfun _ ) . 



Using these lemmas we can finally prove that transportf E f is a homotopy equiv- 
alence. 



Lemma isheqtransportf 


{ B : 


UU }■ ( E : B -> UU ) { b b' 


: B > ( 


f : paths b b ' ) 


: ishe 


q ( transportf E f ) . 




Proof . 








split with ( transp 


ortb E 


f ) . split . 




apply backandf orth . 


apply 


forthandback . 
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Start of proof 

1 subgoals, subgoal 1 

B : UU 
E : B -> UU 
b : B 
b' : B 

f : paths b b' 



isheq (transportf E f) 



after split with; split. 
2 subgoals, subgoal 1 

B : UU 
E : B -> UU 
b : B 
b' : B 

f : paths b b' 



homot (funcomp (transportb E f) 
(transportf E f)) (idfun (E b')) 



after apply backandf orth 
1 subgoals, subgoal 1 

B : UU 
E : B -> UU 
b : B 
b' : B 

f : paths b b' 



homot (funcomp (transportf E f) 
(transportb E f)) (idfun (E b)) 



Figure 12. Coq output during the proof that forward transport 
is a homotopy equivalence. 



There arc several points to make about this proof. The initial goal is to supply 
a term of type isheq ( transportf E f ). Now, this type is itself really of the 
form (you can see this in the proof by entering unfold isheq): 



total (fun f : E 


b ' 


-> E b => dirprod (homot (funcomp f' ( 


transportf 






E f)) (idfun (E b 


))) 


(homot (funcomp (transportf E f) f') ( 


idfun (E b)))) 







and in general to construct a term of type total E, for E : B -> UU, it suffices 
(by virtue of the definition of total) to give a term b of type B together with 
a term of type E b. This is captured in Coq by the command split with and 
one should think of split with b as saying to Coq that you will construct the 
required term using b as the term of type B you are after. Upon using this 
command, the goal will automatically be updated to E b. In this case, entering 
split with ( transportb E f) is the way to tell Coq that we take transportb E f 
to be the homotopy inverse of transportf E f . So, after entering this command 
the new goal becomes 



dirprod 

(homot (funcomp (transportb E f) (transportf E f)) (idfun (E b 
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(homot (funcomp (transportf E f) (transportb E f)) (idfun (E b 
))) 



As with total E, in order to construct a term of type dirprod A B it suffices to 
supply terms of both types A and B. When given a goal of the form dirprod A B, 
we use the split tactic to tell Coq that we will supply separately the terms of type 
A and B individually (as opposed to providing a term by some other means). (See 
Figure 12 for the result of applying both split with and split in the particular 
proof we are considering.) 

The final new ingredient from the proof of isheqtransportf is the appearance 
of the tactic apply. When you have proved a result in Coq and you are later given 
a goal which is a (more or less direct) consequence of that the result, then the tactic 
apply will allow you to apply the result. In this case, the lemmas backandf orth 
and f orthcindback are exactly the lemmas required in order to prove the remaining 
subgoals. 



6.3. Paths in the total space. Using transport it is possible to give a complete 
characterization of paths in the total space of a fibration E : B -> UU. Along these 
lines, the following lemma gives sufficient conditions for the existence of a path in 
the total space: 



Lemma pathint ot alf iber {B : UU}-[E : B->UU>{xy : total 
E } ( f : paths ( prl x ) ( prl y ) ) ( g : paths ( 
transportf E f ( pr2 x ) ) ( pr2 y ) ) : paths x y. 
Proof . 

intros . destruct x as [ xO xl ] . destruct y as [ yO yl ] . 
simpl in *. destruct f . destruct g. apply idpath . 
Def ined . 



This lemma shows that, given points x and y of the total space, in order to construct 
a path from x to y it suffices to provide the following data: 

• a path f from prl x to prl y; and 

• a path g from the result of transporting pr2 x along f to pr2 y. 

This is illustrated in Figure 13 in the special case where x is the pair pair b e and 
y is the pair pair b ' e ' . 

Regarding the proof of pathintotalf iber, it is worth mentioning that here the 
effect of applying destruct x as [ xO xl ] is that it tells Coq that we would 
like to consider the case where x is really of the form pair xO xl. The only new 
tactic here is simpl in * which tells Coq to make any possible simplifications to 
the terms appearing in the goal or hypotheses. For example, in this case, Coq will 
simplify (prl (pair xO xl)) to xO. 
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E(b) 













s 




■b' 



E(b') 



Figure 13. Paths in the total space. 

On the other hand, if we are given a path f from x to y in the total space, there 
is an induced path in the base given by 



Definition pathint ot alf iberpr 1 


i B 


: UU > { E : B -> 


UU } { X y 


: total E } ( f : paths x 


y ) 


: paths ( prl x ) 


( prl y ) 


:= prl ' f. 








Furthermore, we may transport pr2 x 


along 


pathintotalf iberpr 1 


f and there is 


a path from the resulting term to pr2 








Definition pathint ot alf iberpr 2 


i B 


: UU } ■[ E : B -> 


UU } { X y 


: total E } ( f : paths x 


y ) 


: paths (transportf E ( 



pathint ot alf iberpr 1 f ) ( pr2 x )) ( pr2 y ) . 
Proof . 

intros . destruct f. apply idpath . 
Defined . 



Finally, we prove that every path in the total space is homotopic to one obtained 
using pathintotalf iber: 

Lemma pathint ot alf iber char act erizat ion { B : UU } { E : B -> UU 
}■ { X 

y : total E }■ ( f : paths x y ) : paths f (pathintotalf iber 
( pathint ot alf iberpr 1 f) ( pathint ot alf iberpr 2 f) ). 

Proof . 

intros. destruct f. destruct x as [ xO xl ] . apply idpath. 
Defined . 



7. Weak equivalences and homotopy equivalences 

In this section we introduce further basic homotopy theoretic notions including 
the crucial notion of weak equivalence. Classically, weak equivalences are those maps 
which induce isomorphisms on (all higher) homotopy groups. Between sufficiently 
nice spaces weak equivalences turn out to coincide with homotopy equivalences and 
the main goal of this section is to prove this fact in Coq. The Coq proofs in this 
section become increasingly sophisticated and accordingly we will begin to pass 
quickly over the more basic features of the proofs while at the same time giving 
their mathematical interpretations. 
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7.1. Contractibility. A space A is said to be contractible when the canonical map 
A —5- 1 to the one point space is a homotopy equivalence. In Coq, the notion of 
contractibility is captured by the following definition: 

Definition iscontr ( A : UU ) := total ( fun center : A => 
forall b : A, paths center b ) . 

That is, a term of type iscontr A consists of the data required to prove that A is 
contractible: 

• a point center of A, which we will sometimes refer to as the center of 
contraction] and 

• a continuous assignment of, to each b : A, a path from center to b. 

There are various facts about contractible space (e.g., 1 is contractible, contractible 
spaces satisfy the principle of "proof irrelevance" , and so forth) which are ready 
consequences of this definition. However, we will leave the investigation of such 
matters to the reader and merely include one important fact about contractible 
spaces: homotopy retracts of contractible spaces are contractible. That is, given 
continuous functions r : A ^ B and s : B ^ A together with a homotopy p as 
indicated in the following diagram: 




if the space A is contractible, then so is the space B. Note that in the diagram 
(7.1) we employ the convention, familiar from higher-dimensional category theory, 
of indicating the homotopy p by a double arrow =>. In Coq: 



Lemma iscontrretract { A B 


: UU } { r 


: A 


->B}{s:B->A> 


(p : homot ( funcomp s 


r ) (idfun 


_)) 


( is : iscontr A) : 


iscontr B . 








Proof . 








split with ( r ( prl is ) 


) . intros 


b . 




change b with ( idfun B b 


) . rewrite 


<- 


( p b ) . unf old 


funcomp . 








apply maponpaths . apply ( 


pr2 is ) . 






Defined . 









The output of Coq during the proof can be found in Figure 7.1. First, we need to 
provide a center of contraction for B. The center of contraction for A is the term 
prl is. By entering split with ( r (prl is ) ) we tell Coq to take the center 
of contraction of B to be the term r ( prl is ). After this, the goal becomes 



forall b : B, paths (r (prl is)) b 

which is to say that we must prove that there is a path from r (prl is) to any 
other point of B. Next, after using intros b, we enter the command 

change b with ( idfun B b ) 
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to replace the term b in the goal with the equal term idf un B b. Observe that the 
term p b has type 

paths (funcomp s r b) (idfun B b) . 

The tactic rewrite allows us to replace each occurrence of a term in the goal by a 
term which is in the same path component. In this case, because p b is a path from 
funcomp s r b to idfun B b, the result of rewriting with rewrite <- (p b) is 
to replace each occurrence of idfun B b in the goal by funcomp s r b. Here the 
backward arrow <- indicates that we are rewriting the path p b from right to left. 

after split with and intros after change b with ... 



A 


UU 




A 


UU 


B 


uu 




B 


UU 


r 


A -> B 




r 


A -> B 


s 


B -> A 




s 


B -> A 


P 


homot (funcomp s r) (idfun B) 




P 


homot (funcomp s r) (idfun B) 


is 


: iscontr A 




is 


: iscontr A 


b 


B 




b 


B 



paths (r (prl is)) b paths (r (prl is)) (idfun B b) 



after rewrite <- (p b) 



A 


UU 


B 


UU 


r 


A -> B 


s 


B -> A 


P 


homot (funcomp s r) (idfun B) 


is 


: iscontr A 


b 


B 



paths (r (prl is)) (funcomp s r b) 



after unfold funcomp 

A : UU 
B : UU 
r : A -> B 
s : B -> A 

p : homot (funcomp s r) (idfun B) 
is : iscontr A 
b : B 



paths (r (prl is)) (r (s b)) 



after apply maponpaths 



A 


UU 


B 


UU 


r 


A -> B 


s 


B -> A 


P 


homot (funcomp s r) (idfun B) 


is 


: iscontr A 


b 


B 



paths (prl is) (s b) 



Figure 14. Coq output during the proof of iscontrretract. 



Next, we use unfold funcomp to replace each occurrence of funcomp in the goal 
by its definition. Then apply maponpaths tells Coq that we will use maponpaths 
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to construct the goal. Because Coq recognizes that the hypotheses of maponpaths 
require us to provide a path the effect of this is to remove both apphcations of the 
function r on both the right and left. Finally, the required path can be constructed 
using pr2 is. 

It is an immediate consequence of iscontrretract that spaces which are homo- 
topy equivalent to contractible spaces are also contractible. This fact is captured 
by the definitions 



Definition iscontrandheq ■[ A B : 
isheq f ) (is : iscontr A) : 


UU > { f : A 
iscontr B := 


-> B > ( p : 
iscontrretract ( 




and 


Definition iscontrandheqinv I A : 
isheq f ) ( is : iscontr B ) 
( pr2 ( pr2 p ) ) is . 


B : UU } ^ f 
: iscontr A : 


: A -> B > ( p : 
= iscontrretract 


7.2. Homotopy fibers. Given a map f 
the homotopy fiber of f over b as follows: 


: A -> B and a 


point b of B, we define 


Definition hfiber { A B : UU > ( 
total ( fun X : A => paths ( f 


f : A -> B ) 
X ) b ) . 


( b : B ) : UU := 



The homotopy fiber of / over b is the homotopical analogue of the ordinary fiber 
f~^{b). So, a typical point of the homotopy fiber is a pair consisting of a point a 
of A together with a path 



/(a) > b 

in B. 

There are various reasons for considering homotopy fibers. Homotopy fibers play 
a role for fibrations analogous to that played by ordinary fibers for fiber bundles. 
For us, the interest in homotopy fibers comes from their presence in the definition 
of weak equivalences given below. 

From the point of view of category theory, the homotopy fiber of / over b is the 
oo-groupoid version of the comma category {fib). As in the categorical setting, 
there are actions of the operation of taking the homotopy fiber over a fixed point 
on maps over the base B. That is, given continuous maps f : A ^ B, g : C ^ B 
and h : A ^ C together with a homotopy p from g oh to f, there is an induced 
map 

hfiber f b ^ hfiber g b. 



In Coq, this map is defined as 



Definition hfiberact {ABC:UU}{f:A- 


> 


B } 


{ 


g : C -> B 


}(h:A->C) (p: homot ( funcomp h 


g 


) f 


) 


( b : B ) 


: hfiber f b -> hfiber g b 










:= fun a => pair (h ( prl a )) (pathscomp (p 


( 


prl 


a 


)) ( pr2 a 
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That is, hf iberact h p b sends an element 

/(a) 1 b 

of hf iber f b to the point of hf iber g b given by the composite path 

g{h{a)) f{a) ^ b. 

As a special case of this construction, when we are given a continuous maps / : 
A ^ B and g : B ^ C together with a point c of C, there is an induced map 

hf iber ( g o /) c — )• hf iber g c 



obtained by applying hf iberact with the identity homotopy Igo/- In Coq, this is 
obtained as the following definition: 



Def inition 


maponhfiber -[ A 


B C : UU } ( 


f : 


A -> B ) ( g : B -> 


C ) ( 


c : C ) : hfiber 


( funcomp f 


g ) 


c -> hfiber g c := 


fun a = 


> pair ( f ( prl 


a ) ) ( pr2 


a ) , 





In the case where we have a homotopy retract as in (7.1) above, we obtain, a further 
map as follows: 



Definition s ecmaponhf iber { A B : 


UU } {r : 


A 


-> B} 


{ 


s : B -> 


A } ( p : homot ( funcomp s r 


) ( idfun 




) ) ( 


a 


: A ) : 


hfiber s a -> hfiber ( funcomp 


r s ) a : 




fun b 


= > 


pair (s 


( prl b)) (pathscomp (s ' ( p 


( prl b ) 


)) 


( pr2 


b 


)) . 



That is, secmaponhf iber sends 



s{b) > a 

in hfiber s a to the term in hfiber {s o r) a given by the composite path 

s'p(b) j 
s{r{s{b))) ^ s{b) 1 a. 

It turns out that, in this situation, hfiber s a is a homotopy retract of hfiber (so 
r) a: 

secmaponhf iber p a 
hfiber s a > hfiber {s o r) a 




Here, as in (7.1), we indicate the existence of a homotopy in this diagram by a 
double arrow In Coq, this fact is captured by the following lemma: 

Lemma se cmaponhf iber is sec {A B : UU} {r:A->B}{s:B-> 
A } ( p : homot ( funcomp s r ) ( idfun _ ) ) ( a : A ) : 
homot (funcomp ( secmaponhf iber p a ) ( maponhfiber r s a 
) ) (idfun _) . 

Proof . 



HOMOTOPY TYPE THEORY 



35 



^^Wros b. destruct b as [ b 


i ]. unfold funcomp , idfun in *. 


simpl . 




apply (Opathintotalf iber _ . 


. (pair (r (s b)) _) (pair b i) (p 


b)) . 




rewrite transportf andhf iber 


unfold secmaponhf iber . simpl. 


rewrite <- isassocpathscomp 


rewrite islinvpathsinv . apply 


idpath . 











First, after the first application of the simpl tactic we have simplified the goal and 
hypotheses to the extent that we are now in the following situation: 



A 


UU 






B 


UU 






r 


A -> B 






s 


B -> A 






P 


homot (fun x : B => r 


(s x)) (fun X : 


B => x) 


a 


A 






b 


B 






i 


paths (s b) a 






paths (maponhfiber r s a 


( secmaponhf iber 


p a (pair b i))) 



Because we are asked to construct a path in a total space wc will make use of 
pathintotalf iber. However, in order to help Coq understand exactly what we are 
trying to do we must provide some of the implicit arguments of pathintotalf iber 
explicitly. This is accomplished here using the symbol 9. The underscores are 
the arguments which we leave for Coq to guess and the other arguments are those 
we are explicitly providing for Coq. That is, we are telling Coq that in order to 
achieve the current goal it suffices to construct using pathintotalf iber a path 
from pair (r(sb))_ to pair b i where the path from r ( s b ) to b 
we use is p b. After this, the goal becomes: 



paths 






(transportf (fun x : B 


=> paths (s x) a) (p 


b) 


(pr2 (pair (r (s b) ) 


(pr2 ( secmaponhf iber 


p a (pair b i))))) 


^ 







Here, as is often the case, it is convenient to know that the result of applying 

forward transport can be decomposed in a specific way. In this case, it turns out 
that, for j a path from v to w in B and a path k : paths ( s v ) a, 



^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 

is homotopic (in the sense of path homotopy) to the following composite path: 

k 

sw > sv > a. 

This fact is captured by the lemma transportf andhf iber which has a trivial proof 
that we omit. Returning to the proof of secmaponhf iberissec, we rewrite using 
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transportf andhf iber and then simplify using unfold and simpl to arrive at the 

goal 



paths (pathscomp (pathsinv (s 


' p b)) (pathscomp (s 


' p b) i)) 


i 







which is an immediate consequence of associativity of path composition and the 
fact that pathsinv is an inverse with respect to path composition. 

In addition to acting on maps via hf iber act, there is also an action of the 
homotopy fiber operation on homotopies. Namely, a homotopy from a map / : 
A — >■ i? to a map g : A ^ B induces, for b : s. map hf iber / — > hf iber g b as 
follows: 

Definition hf iber andhomot {AB:UU}{fg:A->B}(b:B 
) ( p : homot f g ) : hfiber f b -> hfiber g b := fun a => 
pair (prl a) (pathscomp (pathsinv (p (prl a ))) (pr2 a)) . 

Similarly, there is a corresponding map 

hfiber (76—7- hfiber / b 
because the homotopy relation is symmetric. 

Definition hf iber andhomot inv ■[AB:UU>-[fg:A->B]-(b 
: B ) ( p : homot f g ) : hfiber g b -> hfiber f b := fun a 
=> pair ( prl a ) (pathscomp ( ( p ( prl a ) ) ) ( pr2 a ) 
) . 

Finally, these two maps constitute a homotopy equivalence of spaces as the following 
lemma confirms: 

Lemma i sheqhf iber andhomot {AB:UU}{fg:A->B}(b:B 
) ( p : homot f g ) : isheq ( hf iber andhomot bp). 

We leave the proof of isheqhf iberandhomot as an exercise for the reader (the proof 
can also be found in the accompanying Coq file). 

7.3. Weak equivalences. Classically, a map f : A ^ B is a. weak equivalence 
when it induces isomorphisms on homotopy groups. However, we will give a defi- 
nition, following Voevodsky [70] , which makes sense without referring to homotopy 
groups. In Section 7.4 below we will show that these weak equivalences coincide, 
for the "nice spaces" we are considering, with the homotopy equivalences (and 
therefore also with the classical weak equivalences). We start with the definition: 



Definition isweq { A B 


: UU } ( f 


: A -> B ) : 


= ( forall b 


: B, 


iscontr ( hfiber f 


b ) ) . 









From the "propositions as types" point of view, the weak equivalences correspond 
to the bijections. The space of weak equivalences from A to i? is defined as follows: 



Definition weq ( A B : UU ) := total ( fun f : A -> B => isweq 
f ) . 
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That is, a typical term of type weq A B is a pair consisting of a map f : A -> B 
together with a term of type isweq f . The most basic example of a weak equiva- 
lence is the identity function idf un A : A -> A. It is straightforward to construct 
the required proof that this is a weak equivalence. We denote by isweqidfun A 
this term of type isweq ( idfun A ) and we then adopt the following definition: 

Definition idweq ( A : UU ) := pair ( idfun A ) ( isweqidfun A 
) . 

That is, idweq A is the representative of the identity function on A as a weak 
equivalence. 

Given a map f : A -> B together with a proof is : isweq f that it is a weak 
equivalence, if we are given a point b : B, then there is a corresponding center 
of contraction in the homotopy fiber of f over b given explicitly by the term 
prl ( is b ). Because it is often convenient to make use the actual term of type 
A corresponding to this center of contraction we introduce the following nomencla- 
ture: 

Definition weqpreimage { A B : UU }{f :A->B}(is : isweq 
f ) ( b : B ) : A := prl ( prl ( is b ) ) . 

That is, weqpreimage is b is the (homotopically) canonical element in the homo- 
topy fiber of f over b. Similarly, we name the path from f ( weqpreimage is b ) 
to b as follows: 

Definition weqpreimageeq -[AB:UU}--[f:A->B}(is: 

isweq f ) ( b : B ) : paths ( f ( weqpreimage is b ) ) b := 
pr2 ( prl ( is b ) ) . 

That is, we have: 

weqpreimageeq is b 

/(weqpreimage is b) > b. 

It is also clear from the definition of weqpreimage that if we are given any point 
a : A and path g from f a to b, there exists a path 

weqpreimageurapl is b g 
weqpreimage is b > a. 

We leave the construction of the term weqpreimageumpl to the reader. Finally, the 
operation of taking the preimage is injective in the sense that if there is a path 

g 

weqpreimage is b ^ weqpreimage is 6', 

then there exists an induced path weqpreimageump2 is g from b to b'. 



7.4. Weak equivalences and homotopy equivalences. Given a weak equiva- 
lence f : A -> B, we construct a homotopy inverse of f as follows: 



Definition weqinv ■[ A B : UU }■ ( f 


: weq A B ) 


: B -> A : 


= fun 


X => weqpreimage ( pr2 f ) x. 









Using the observations from Section 7.3 it is straightforward to prove the following 
lemmas: 
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Lemma weqinvislinv { A B : UU } 
funcomp ( weqinv f ) ( prl f 


( 

) 


f 

) 


: weq A B ) 
( idfun _ ) . 


: homot ( 


and 


Lemma weqinvisrinv { A B : UU } 
funcomp ( prl f ) ( weqinv f 


( 

) 


f 

) 


: weq A B ) 
( idfun _ ) . 


: homot ( 


which together constitute the proof of: 


Lemma weqtoheq { A B : UU } { f 
isheq f . 




A 


-> B } (is : 


isweq f) : 



Classically it should be noted that the analogue of weqtoheq only applies in the 
case of reasonably nice spaces. Interestingly, the proof of the converse of weqtoheq 
is not entirely trivial. (Categorically, the proof of the converse makes crucial use of 
the fact that categorical equivalences can be transformed into adjoint equivalences 
[41].) 

The proof of the converse of weqtoheq can nicely be broken up into two lem- 
mas. The first lemma states that, for a homotopy retract as in (7.1) above, if the 
homotopy fiber of the composite s o r over a point a of A is contractible, then the 
homotopy fiber of s over a is also contractible: 



Lemma i s cont rhf iber andhr et r ac t ■[ A B : UU }■ { r : 


A -> B }■ ■[ s 


: B -> A } (p : homot ( funcomp s r ) ( idfun 


_ )) ( a : A 


) : iscontr ( hfiber ( funcomp r s ) a ) -> iscontr ( 


hf iber s a ) . 




Proof . 




intros is . 




apply ( Oiscontrretract ( hfiber ( funcomp r s ) 


a ) ( hfiber 


s a ) 




( maponhf iber _ _ _ ) ( s ecmaponhf iber pa)). 




apply secmaponhf iber i s se c . assumption. 




Defined . 





As the Coq code shows, the proof of this fact is an immediate consequence of 
iscontrretract and secmaponhf iberissec. 

The second lemma states that if there is a homotopy from f : A ^ B to f : 
A ^ B and the homotopy fiber of /' over a point b : B is contractible, then the 
homotopy fiber of / over b is also contractible: 



Lemma iscontrhf iberandhomot {AB:UU}{ff' :A->B}-(h 


: homot 




f f ' ) ( b : 


B ) : iscontr ( hfiber f ' b ) -> iscontr ( hfiber 


f b ) . 




Proof . 




intros is . 


apply ( iscontrandheqinv ( i sheqhf iber andhomot b h 


) ) . 




assumption 




Defined. 
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In this case the proof is an immediate consequence of the fact (iscontrandheqinv) 
that being contractible is preserved by homotopy equivalences together with the fact 
(isheqhf iberandhomot) that homotopies induce homotopy equivalences of homo- 
topy fibers. 

Using these two lemmas we obtain the converse of weqtoheq, called following 
Voevodsky the Grad Theorem, as follows: 



Theorem gradth ■[AB:UU}{f:A 


-> B } ( 


is 


5 : isheq f 


) : 


isweq f . 










Proof . 










intro b. destruct is as [ f' is ] 










apply ( Qiscontrhf iberandhretract 


B A f ' f 


( 


pr2 is ) ) 




apply ( Siscontrhf iberandhomot B _ 


(f uncomp 


f 


f) (idfun 


B) ( 


pr 1 is ) ) . 










apply isweqidfun. 





























After applying intro b and destruct we find ourselves in the following situation: 



A : 


UU 




B : 


UU 




f : 


A -> B 




f ' 


: B -> A 




is 


: dirprod (homot (funcomp 


f f) (idfun B)) 




(homot (funcomp f f') 


(idfun A)) 


b : 


B 





Because f ' is the homotopy inverse of f it then suffices, by iscontrhf iberandhretract 
to show that the composite / o /' has a contractible homotopy fiber over h. This is 
the effect of the first apply, after which the Coq output is 



A : UU 




B : UU 




f : A -> B 




f ' : B -> A 




is : dirprod (homot (funcomp 


f f) (idfun B)) 


(homot (funcomp f f ') 


(idfun A)) 


b : B 




iscontr (hfiber (funcomp f ' 


f) b) 



We now observe that there is a homotopy from / o /' to the identity function on 
B and therefore after applying iscontrhf iberandhomot it remains only to prove 
that the identity on B is a weak equivalences, which is precisely the content of 
isweqidfim. 



8. The Univalence Axiom and some consequences 

In this section we will describe a number of constructions and results which arc 
more closely related to the univalent approach. Because it would take us to far 
afield in an introductory paper such as this, we will merely mention a number of 
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the results and display some of the corresponding Coq code. That is to say, the 
development given here is not self contained: there are many definitions and lemmas 
we do not give that would be required in order to obtain all of the results described 
here. 

8.1. An alternative characterization of the Univalence Axiom. Before giv- 
ing the explicit statement of the Univalence Axiom, we will first require a map 
which turns a path in the universe UU into a weak equivalence. For a change of 

pace, wc give a direct definition of this map as follows: 

Definition eqweqmap { A B : UU ]■ ( p : paths A B ) : weq A B 
:= match p with idpath => ( idweq _ ) end. 

That is, eqweqmap is the map from the path space paths A B to the space weq A B 
of weak equivalences induced by the operation of sending the identity path on A to 
the identity weak equivalence idweq A on A. 
We then define the type 

Definition isweqeqweqmap := forall 



The Univalence Axiom then states that there is a term of type isweqeqweqmap. 

However, before explicitly adding the Univalence Axiom as an assumption, we 
would first like to give a logically equivalent version of this principle. The idea 
behind this equivalent form of the Univalence Axiom, which can be seen easily by 
considering the semantic version of the Univalence Axiom (i.e., what the axiom 
says in terms of models) , states that the type of weak equivalences is inductively 
generated by the terms of the form idweq A. In particular, they are inductively 
generated by these terms in the same way that the path space construction paths 
is inductively generated by the identity paths. Formally, we define the type 

Definition weqindelim := 
forall E : 

total ( fun X : UU => total ( fun y : UU => weq x y ) ) -> UU, 
forall p : ( forall x : UU , E ( pair x ( pair x ( idweq x ) ) ) 
) , 

^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 

Intuitively, let B be the space with points given by the following data: 

• small spaces X and Y; 

• weak equivalences / from XtoY. 

Then, for a fibration E ^ B over B, if there exists a proof p (term) that each 
fiber Ei^ over identity weak equivalences Ix is inhabited, then a term of type 
weqindelim E p yields a proof that every fiber Ef is inhabited. Thinking of i5 as a 
"property" of weak equivalences, this states that in order to prove that a property 
(definable type theoretically) of weak equivalences holds it suffices to prove that 
the property holds of identity weak equivalences. We refer to this as induction on 
weak equivalences. 

In order to prove that if the Univalence Axiom holds, then the induction principle 
weqindelim also holds we make use of the following lemma, the proof of which is 
immediate. 
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Lemma weqindO 














( E : total (fun x 


: UU => 


total ( fun y : UU => weq x 


y 


) 


) 


-> 


UU) 














( p : ( forall x : 


UU, E ( 


pair X ( pair x ( idweq x ) 


) 


) 


) 


) 


(forall X y : UU , 














forall z : paths 


X y , E 


( pair x ( pair y ( eqweqmap 


z 


) 


) 


)) 



This lemma states that the induction principle in question holds for weak equiva- 
lences of the form eqweqinap(/) for / a path between small spaces. Using this, we 
obtain the following: 



Definition weqind ( univ 


: isweqeqweqmap ) : 


weqindelim := 


fun E p A B f => 






transportf ( fun z => E 


( pair A ( pair B z 


) ) ) 


( weqeqmaplinv univ f ) 


( weqindO E p A B 


(weqeqmap univ f) ) 









Here we arc assuming that the Univalence Axiom holds. I.e., that there is a term 
univ of type isweqeqweqmap. Then, given all of the data of the induction principle, 
in order to obtain a proof that the fiber Ef is inhabited we observe that, by weqindO, 
there exists a term e in the 

171 

-^eqweqmap(weqeqmap(/)) 1 

where weqeqmap is the homotopy inverse of eqweqmap, which exists by the fact that 
we are assuming the Univalence Axiom. It then suffices to transfer e along the path 
from eqweqmap(weqeqmap(/)) to / (here called weqeqmaplinv). 

We note that, when the Univalence Axiom holds, the following computation 
principle corresponding to weqindelim also holds: 



Definition weqindcomp 


( rec : 


weqindelim ) := 




forall E : 








total ( fun x : UU => 


total 


( fun y : UU => weq x y ) ) -> 


UU, 


forall p : ( forall x 


: UU, E 


( pair X ( pair x ( idweq x ) 


) ) 


) . 









Explicitly, we have the following Theorem: 



Theorem weqcomp (univ 


isweqeqweqmap) 


: weqindcomp ( weqind 


univ ) . 







The proof of this is slightly involved and we leave the details to the reader (they 
can also be found in the companion Coq file for this tutorial). We refer to this 
computation principle as the computaMon principle for weak equivalences. 

It turns out that the converse implications also hold: in order to prove that the 
Univalence Axiom holds, it suffices to show that there are terms rec : weqindelim 
and reccomp : weqindcomp rec. That is, we have the following Theorem: 
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Theorem univfromind {rec 


: weqindelim} ( reccomp 


: weqindcomp 


rec ) 






: isweqeqweqmap . 







In order to prove this, it suffices, by the Grad Theorem, to prove that eqweqmap 
has a homotopy inverse. To construct the homotopy inverse we employ induction 
on weak equivalences. That is, to construct a map from the space weq A B to the 
path space paths A B it suffices to be able to specify the image of an identity weak 
equivalence. But these are clearly sent to the identity path. The fact that this 
determines a homotopy inverse is then a consequence of the computation principle 
for weak equivalences. (Full details of the proof can be found in the Coq file 
accompanying this paper.) 

8.2. Function extensionality. Henceforth, we assume that the Univalence Axiom 
holds. That is, we adopt the following: 

Axiom univ : isweqeqweqmap. 

In Coq, the command Axiom serves to introduce a new global hypothesis. In this 
case, we assume given a proof univ of the Univalence Axiom. Note that, although a 
good number do, not all of the facts we prove below require the Univalence Axiom 
for their proofs. We will begin by briefly summarizing one of Voevodsky's type 
theoretic results regarding the Univalence Axiom. 

One somewhat curious feature of type theory without the Univalence Axiom is 
that the principle of Function Extensionality is not derivable. Although it can be 
formulated in a number of ways, the principle of Function Extensionality should be 
understood as stating that, for continuous maps f,g: B, paths from / to g in 
the function space correspond to homotopies from / to g. 

Voevodsky [71 1] showed that Function Extensionality (and a number of closely 
related principles) is a consequence of the Univalence Axiom. A sketch of the proof 
written in the usual mathematical style can be found in Gambino [18]. We will not 
describe the proof of Function Extensionality here. We merely mention that we 
will make use of it in what follows. Explicitly, we make use of a term 



f unextsec 


: forall B : UU , 


f orall 


E : 


: B -> UU, 


forall f 


g : ( forall x : 


B , E X 


) , 




isweq ( 


pathtohtpysec f j 


I )• 







This is a slightly more general form of Function Extensionality and implies the 
more common version as follows: 



Def inition 


f unextf un 


■[ A B : UU 


} 


( 


f g : 


A -> B 


) : 




homot f g 


-> paths f 


g 














:= weqinv 


( pair 


( funextsec 


A 


( 


fun z 


= > B ) 


f i 





8.3. Impredicativity of h-levels. We will now describe a number of consequences 
of the Univalence Axiom concerning h-levels. First, we give the definition of h-levels 
as follows: 
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Fixpoint isofhlevel ( n 


: nat ) ( A : UU ) := 


match n with 




1 => iscontr A 




1 S n => forall a b : 


: A, isofhlevel n ( paths a b ) 


end . 





Here the operation Fixpoint tells Coq that we will define a function out of an 
inductive type (in this case nat) recursively. So, the definition is saying that a type 
A is of h- level when it is contractible and it is of h- level {n + 1) when, for all 
points a and b of A, the path space paths a 5 is of h-level n. 

The h-levels satisfy an important property which type theorists refer to as being 
impredicative: they are closed under universal quantification in the sense described 
below. In the base case (for contractible spaces), this is proved as follows: 

Lemma impredbase { B : UU } ( E : B -> UU ) : 

(forall X : B, iscontr (Ex)) -> iscontr (forall x : B, Ex). 

Intuitively, what this says is that given a fibration E over B, if every fiber is 
contractible, then the space forall x : B, E x of sections of the fibration is also 
contractible. We omit the proof, which is an immediate consequence of f unextsec. 

The following general principle of impredicativity of h-levels then follows by 
induction: 

Lemma impred ( n : nat ) : forall B : UU , forall E : B -> UU , 
( forall X : B, isofhlevel n ( E x ) ) 

-> isofhlevel n ( forall x : B, Ex). 

Again, this lemma states that if all fibers E^ are of h-level n, then so is the space 
of sections of the fibration. 

8.4. The total space and h-levels. Next, we would like to explain the behavior 
of h-levels when it comes to forming the total space of a fibration. Assume given a 
fibration E ^ B over B. That is, we assume given a term E : B -> UU . Then, for 
any points x and y, there is a weak equivalence between the path space paths x y 
and the space which consists of pairs (/, g) consisting of paths / from tti{x) to 7ri(y) 
and paths g from f\{TT2ix)) to 7r2(?/) (see Section 6 above for more on this idea). 
Using this fact wc obtain the following lemma: 

Lemma totalandhlevel ( n : nat ) : forall B : UU , 
forall E : B -> UU , forall is : isofhlevel n B, 
forall is ' : ( forall x : B, isofhlevel n (Ex) ), 
isofhlevel n ( total E ) . 

The lemma states that if the base space B and all fibers E^ are of h-level n, then so 
is the total space. In the base case n = this is straightforward. In the induction 
case, we observe that, for any x and y in the total space, 

isofhlevel n ( paths x y ) 

can be replaced, by the Univalence Axiom and the weak equivalence mentioned 
above, by 
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isofhlevel n ( 
total ( fun V 



paths ( prl X ) ( prl y ) => 



But the induction hypothesis appHes in this case, since we are now dealing with a 
space of the form total . . . , and so we are done. 

8.5. The unit type and contractibility. The unit type unit corresponds to the 

terminal object 1 in the category of spaces under consideration. It is the inductive 
type with a single generator tt : unit. For any type A there is an induced map 



tounit A 



-> unit 



It is a useful fact about contractible spaces that A is contractible if and only if 
tounit A is a weak equivalence. We omit the straightforward proof of this equiva- 
lence. 

One fact about contractible spaces we will require is the fact that if A is con- 
tractible, then so is the type iscontr A of proofs that A contractible. This is 
captured by the following lemma: 



Lemma iscontrcontr { A 
Lscontir A j 



UU > ( is 



iscontr A ) 



By the Univalcncc Axiom and the characterization of contractible spaces mentioned 
above, in order to prove this theorem it suffices to consider the case where A is the 
unit type, which is more or less immediate. This proof reveals one important 
method for using the Univalcncc Axiom: to prove something about a space A it 
suffices, by the Univalence Axiom, to prove the same fact about an easier to manage 
space which is weakly equivalent to A. 

8.6. Some propositions. We think of types of h-level 1 as being propositions 
(or truth-values) in the sense familiar to logicians. Following this intuition, we 
introduce the following notation: 



MiiilllHI 



iiiiiiU 



Being a proposition is the same as being proof irrelevant. That is, P is a proposition 
if and only if, for all terms p,q : P, there is a path from p to q. 

One important consequence of iscontrcontr is the fact that being contractible 
is itself a proposition: 



First, note that it is clear that a sufficient condition for being a proposition is being 
contractible. So, given points p and q of type iscontr A, it suffices to show that 
the type iscontr A is itself contractible, which is by iscontrcontr. 

As a consequence of impredicativity of h-levels together with isapropiscontr 
we obtain the following lemma: 



Lemma isapropisweq ■[ A B : 


: UU > ( f ; 


: A -> B ) : 


isaprop ( 
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Again using impredicativity of h-levels and isapropisweq we obtain the following 
theorem: 

Theorem isaxiomunivalence : isaprop ( isweqeqweqmap ) . 

That is, the type of the Univalence Axiom is a proposition and therefore, assuming 
that there exists a term univ of this type, the space of such terms is contractible. 

Similarly, a straightforward argument shows that, for any space A, the type 
isof hlevel n A is a proposition. 

8.7. The h-levels of h-universes. We will now consider types of the form 
total ( fun X : UU => isofhlevel n x ) 

which correspond to the types of all small spaces of a fixed h-level n. That is, they 
are what you might call h-universes. Ultimately we will compute the h-levels of 
h-univcrscs. First we will develop some further basic facts about h-lcvcls. 

Note that if A is of h-level n then a straightforward argument (using the discus- 
sion of h-levels of total spaces above), shows that A is also of h-level {n + 1). That 
is, the h-univcrscs arc cumulative. Next, observe that if B is of h-level (n + l), then 
so is the space of weak equivalences WEq A B for any space A: 

Lemma hlevelweqcodomain ( n : nat ) : forall A B : UU , 
isofhlevel ( S n ) B -> isofhlevel ( S n ) ( weq A B ) . 
Proof . 

intros A B is . apply totalandhlevel . apply impred . 
intros . apply is. intros. apply isaproptoisof hlevelSn . 
apply isapropisweq. 
Def ined . 

The proof is as follows. It suffices, by totalandhlevel, to prove separately that 
both the function space A -> B and the space of proofs that an element / of the 
function space is a weak equivalence are of h- level (ti + 1). The former is by 
impredicativity of h-levels and the latter is by isapropisweq. 

Now, for each fixed n, there is a version of eqweqmap relativized to the h-universe 
of type of h-level n: 

Definition hlevelneqweqmap ( n : nat ) 

( A B : total ( fun x : UU => isofhlevel n x ) ) 

: paths A B -> weq ( prl A ) ( prl B ) := 

fun f => eqweqmap ( pathintotalf ihar.n^l f ) . 

It turns out that, because isweq f is a proposition, this map is a weak equivalence: 

Lemma isweqhlevelneqweqmap ( n : nat ) : 

forall A B : total ( fun x : UU => isofhlevel n x ) , 

isweq ( hlevelneqweqmap n A B ) . 



Next, we observe that if both A and B are contractible, then so is the space of weak 
equivalences from A to B: 



Lemma 


iscontrandweq ■[ A B : UU 


y 


( is : 


iscontr A ) 


^( is ' 


' : iscontr B ) : iscontr 


( 


weq A 
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Finally, we observe that the h-universe of types of h- level n itself has h-level (n + 1): 

Theorem isof hlevelSnhn ( n : nat ) : isofhlevel ( S n ) 
( total ( fun X : UU => isofhlevel n x ) ) . 

The proof is as follows. First, note that if we are given A and B of type 
total ( fun X : UU => isofhlevel n x ), 

then these terms should themselves be thought of as pairs A = [A^p) and B = (B, q) 
where p is a proof that A is of h-lcvel n and q is a proof that B is of h-level n. 
Nonetheless, there is a weak equivalence between the type paths {A,p) {B,q) and 
the type WEq A B and as such it sufRces to construct a term of type 




When n = this is by iscontrandweq and in the case where n = m + 1 it is by 
hlevelweqcodomain. 
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